home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 July / 64er_Magazin_95-07_1995_Markt__Technik_de_Side_A.d64 / listing 03 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  126 b   |  8 lines
  1. 1000 rem string-zahl-wandlung
  2. 1010 t$="1234":z=0:a=1
  3. 1020 for i=1tolen(t$)
  4. 1030 t=asc(left$(right$(t$,i),1))-48
  5. 1040 z=z+t*a:a=a*10
  6. 1050 next
  7. 1060 printz
  8.